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Deseo reservar el libro LOS SECRETOS DEL MSX, cuyo precio es de 1 .500 Ptas. y ganarme el descuen- 
to del 10%. por lo que remito talón de 1.350 Ptas. a la orden de Manhattan Transfer, S.A. 

Nombe y apellidos 

Calle n.° Ciudad DP 

Esta reserva me da derecho a recibir LOS secretos DEL MSX en mi domicilio libre de gastos de en- 
vío o cualquier otro cargo. 

importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 

RESERVA «LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos -08021 BARCELONA 
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Línea directa 







Estamos en contacto contigo. No dejes de usar nuestra línea directa 

y escríbenos. Esta es tu sección. 



FELICITACIONES 




¡Bravo por el MSX CLUB! La 
revista es sensacional y me he 
divertido con la enorme canti- 
dad de programas que publi- 
can. Muy pronto enviaré un 
programa y espero ganar la 
impresora que mucha falta me 
hace. 

Juan Antonio Rivas (Málaga) 

¡Felicitaciones por la revista! 
Ya estaba haciendo falta una 
revista como esta. Espero que 
todo lo que prometéis lo va- 
yáis cumpliendo. Por lo pron- 
to envío mi suscripción con la 
esperanza de estar entre los 
cien primeros. 

Carlos E. Manrique (Madrid) 

FALLO DE 
REPRODUCCION 

Aparte de felicitarlos por esta 
magnífica revista quiero mani- 
festarles un problema que ten- 
go con mi MSX. Resulta que 
después de listar una serie de 
programas y haberlos grabado 
sin ningún problema me he 
encontrado con la sorpresa de 
que la impresión posterior que 
he realizado me ha salido mal. 
Seguramente ustedes pensa- 
rán que he hecho mal la graba- 
ción, pero no es así porque 
después de esto he vuelto a co- 
locar la grabación en el orde- 
nador y me ha salido bien. ¿Se 
debe esto a un problema de mi 
aparato o de otra cosa? 

José María Caseros 
(Badalona) 



Normalmente una vez realiza- 
do el listado correctamente se 
puede grabar, pero si hay un 
error el mismo ordenador lo 
anuncia. Lo mismo en el caso 
de pasar una grabación a una 
impresora. Sin embargo, se ha 
dado el caso de que grabaciones 
perfectas han salido con errores 
en el listado impreso. Teórica- 
mente no tendría que ser así, 
por lo que nuestros técnicos es- 
tán analizando a oscilaciones 
en la intensidad de la señalo en 
cambios aleatorios en la veloci- 
dad por errores de interpreta- 
ción del sistema. 



CUESTION 
DE SISTEMA 



Hola amigos, quiero felicita- 
ros por la magnífica idea de 
hacer un club para los fanáti- 
cos del MSX. Después de te- 
clear varios programas del pri- 
mer número he comprobado 
algunos pequeños errores 
(GUSANO, línea 190: U=U- 
(T=0), falta el paréntesis de 
apertura: CARRERA DE CA- 
BALLOS, línea 80: 
A$="":P=0:A=0: T=l : 
K=0, aquí falta $). Segura- 
mente por la tipografía de los 
programas empleáis impreso- 
ra y en ese caso no tendría que 
haber ningún error, pero 
como sí los hay, quiero adver- 
tirles cual puede ser el orieen 
del problema. Si bien la graba- 
ción de los programas es co- 
rrecta, el sistema MSX no es 
infalible -según he podido 
comprobar- en la lectura de 
las cintas. Es decir que dado 

3ue sus sistema de sonido pue- 
e operar en 1200 ó 2400 oau- 
dios, creo que tiene que haber 
un problema operativo, dado 
que su modo de actuar es alea- 
torio. Por esto, a veces la míni- 
ma alteración energética o de 
tono puede provocar errores 
de reproducción. Mi consejo 
es que controléis línea por lí- 
nea los listados que mandéis a 
la imprenta, aunque estos ha- 
yan sido hechos en impresora. 

Miguel Angel Bernárdez 
(Madrid) 



CONSTANTES 

Quiero ponerme en línea di- 
recta con MSX CLUB para 
que me aclaren qué son las 
constantes, porque por más 

3ue leo el manual no termino 
e enterarme. Ya sé que es una 
pregunta tonta, pero es que 
soy muy novata con mi orde- 
nador. 



María del Carmen Botaya 

(Sevilla) 

En informática no hay ninguna 
pregunta tonta. En este caso tu 
pregunta es sencilla, pero re- 
quiere una larga respuesta que 
pensamos desarrollar en un fu- 
turo artículo. Vero, mientras lo 
preparamos, te podemos decir 
que las constantes son los valo- 
res que el BASIC MSX emplea 
durante la ejecución y que pue- 
den ser alfanuméricas (cade- 
nas), y numéricas. Las constan- 
tes alfanuméricas pueden con- 
tener hasta 255 caracteres alfa- 
numéricos entrecomillados 
(«CONSTANTE» «30.000 
pts.», etc.). Por su parte las 
constantes numéricas son nú- 
meros positivos o negativos, 

Íue no pueden tener comas, 
lay cinco clases de constantes 
numéricas: enteras, de coma 
fija, de coma flotante, hexadeci- 
males, ocíales y binarias. Ade- 
más las constantes numéricas 
pueden ser de simple o doble 
precisión. 

¿PARA CUANDO 
CASSETTES? 

Soy un asiduo lector del MSX 
EXTRA y ahora de esta nueva 
y magnífica revista que es 
MSX CLUB. Sin embargo, lo 
que veo es que ni siquiera ha- 
bláis de la posibilidad de dar 
cassettes con ellas. Realmente 
a mí no me importaría que 
costara más si con ello tengo 
una cinta de la misma calidad 
de los programas que publi- 
cáis para listar. Espero que ya 
estéis grabando esas cassettes 
que tanto me interesan. 

Julián Torreiglesia (Sevilla) 



Te agradecemos enormemente 
que seas lector de nuestras re- 
vistas y que ellas te gusten tan- 
to. En principio estamos estu- 
diando la posibilidad de editar 
cassettes, pero hasta ahora 
nuestra política editorial es que 
todos nuestros lectores se fami- 
liaricen con la máquina del úni- 
co modo posible, usándola, lis- 
tando programas; descubriendo 
sus secretos para que ella no se 
convierta en una simple conso- 
la de juego y se le pueda sacar 
todo el rendimiento posible. 



SONY Y LOS 
LENGUAJES 



Necesito saber donde com- 
prar la cinta de Sony para 
lenguaje Pascal. Ruego me 
informen cuanto antes pues 
es para un trabajo en la uni- 
versidad. Asimismo me gus- 
taría que publicasen repor- 
tajes sobre lenguaje máoui- 
na y sobre el modo de selec- 
cionar choques entre spri- 
tes. 

Jorge López Paniagua (Ma- 
drid) 

Hemos consultado a la casa 
Sony sobre el particular y nos 
informa que a mediados de 
junio lanzará al mercado un 
cartucho con el lenguaje 
PASCAL, cuyo precio será de 
6.900 pts. aproximadamente. 
Asimismo, la casa Sony co- 
mercializará cartuchos para 
los lenguajes LOGO y En- 
samblador. Con respecto a 
artículos sobre lenguaje má- 
quina y el modo de seleccio- 
nar choques entre sprites, te 
comunicamos que nuestros 
especialistas ya están traba- 
jando en ello. 



BAUDI0S 



No quiero darles la lata con 
mis felicitaciones porque es- 
toy seguro que estarán reci- 
biendo muchísimas. Pero 
quiero hacerles una pregunta 
que me tiene intrigado, a lo 
mejor es una tontería, pero el 
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caso es que ignoro su respues- 
ta. La pregunta es ¿qué dia- 
blos es un baudio? 

Jordi Santacreu (Gerona) 

Para MSX CLUB no hay ningu- 
na pregunta aue nos resulta 
tonta, pues todas pueden servir 
para esclarecer un montón de 
dudas que tiene mucha gente 
en este nuevo terreno de la in- 
formática. Un baudio es la uni- 
dad de medida que se emplea 
para calcular la velocidad a la 
cual se transmite un flujo de da- 
tos digital a través de una cone- 
xión periférica, como puede ser 
del ordenador a una cassette o a 
una impresora. También puede 
darse a través de un canal tele- 
fónico o telegráfico y se expresa 
en bits por segundo. 



En principio la casa Canon co- 
mercializa el mando VJ-200, 
que tiene un bello y eficaz dise- 
ño. De todos modos todos los 
mandos del sistema A tari son 
compatibles con los ordenado- 
res MSX. 

NOVATADA ~ 

Hace muy poco tiempo que 
tengo un HIT-BIT y por su- 
puesto que he tenido que pa- 
gar la novatada. Cada vez que 
tecleaba un programa, des- 
pués de otro, me salía en pan- 
talla aue no tenía más memo- 
ria. El caso es que me leí con 
mayor atención el manual y 
me di cuenta de que lo que te- 
nía que hacer era oorrar el an- 
terior usando la orden NEW. 



que me salieran cambiando 
sólo el RANDOMICE, menos 
el ajedrez que es el que más me 
interesa. Les envío la copia he- 
cha con un plotter para ver si 
ustedes pueden hacerles las 
modificaciones que corres- 
pondan. 

Juan González Castilla 
Le joña (Vizcaya) 

Le agradecemos su colabora- 
ción. Esto redunda en beneficio 
de muchos lectores de toda Es- 
paña y también, en un futuro 
muy próximo de Latinoamérica 
y área de habla hispana de Esta- 
dos Unidos. En relación a la lí- 
nea 1650 del juego Jet-Monster 
que nos remite para que la com- 
probemos tenemos que decirle 




MANDOS 
COMPATIBLES 



Tengo un Canon V-20 y antes 
de comprar unos mandos para 
juegos me interesaría saber 
qué tipo debo elegir. También 
si los que tengo de mi consola 
Atari me sirven. 



Pedro José Franco 
(La Coruña) 



Les escribo esto para que 
otros no paguen la novatada y 
se pasen horas tecleando sin 
saber qué está pasando. 

Antonio Juárez Castillo 
(Alicante) 

EL CAMBIO DEL 
«RANDOMICE» 

Como no encontraba libros 
para mi ordenador Sony com- 
pré uno llamado «Juegos para 
ordenadores», que conseguí 



que donde pone «l» correspon- 
de «1». Este es el motivo por el 
cual el juego o funciona. 



FE DE ERRATAS 

«JET MONSTER» 
LINEA 1880 60TO220 
«CARRERA DE 
CABALLOS» 
LINEA 80 A DOLAR = u ": 
P = 8:A = 0:E=1:K = 0 
«EL GUSANO» LINEA 
190 V = U-CT = 0) 



TABLON DE 
ANUNCIOS 

Intercambio programas de 
juegos y de gestión para 
MSX. Javier García LIucs 
ma. c/. Huertos n.°21, I 
SAGUNTO (Valencia) 
Cambio programas MSX- 
gran variedad- primeros 
títulos del mercado. Mi- 
guel Angel Yáñcz Catra- 
cho, c/. Perú n.° 2 1.41012 
Sevilla -Tel. (954)612636. 
Cambio cartuchos para 
Atari 2600. Dispongo de 
Phoenix, Real Sport S< c 
cer, Football, Asteroides. 
Combat, Defender, Lla- 
.mar al (968) 51 46 82 Car 
tagena (Murcia). Labora- 
bles después de las 21 hs. 
Reí. CP. 1 . 

Vendo consola Atari 
26000, más dos joysticks, 
más dos paddles, más dos 
cartuchos. Todo por 
18.000 pts. Todo por es 
trenar. fordi García, Ma- 
llorca 314 pral. L* 08037 
Barcelona - Tel. 257 60 72. 
Ref . CP 1 . 

Intercambio programas 
para MSX. Poseo Zaxxon, 
Ghostbuster, Congo Bon- 
go, Heystone Kápers, El 
Samurai Ninja y Apren- 
diendo Ingles I. Miguel A. 
Yáñez. Tel. (954) 61 26 i6 
-Sevilla. Ref. CP 1. 
Vendo cassette para orde- 
nador mod. Philips 
D6620, con todos los acce 
sorios. Nuevo y precio 
muy interesante. Gregorio 
Riquelme Artes. P.° Alfon- 
so XIII, 54, 5.°, Cartagena 
(Murcia). Tel. (968) 52 57 
94. Ref. CP1. 
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Programa estrella 



ALUNIZAJE 



Sorprendente juego de 
habilidad para posarse 
sobre la plataforma que 
antiguos colonos espa- 
ciales construyeron en la 
luna de un lejano plane- 
ta. El juego es muy entre- 
tenido y requiere de tu 
parte un gran dominio de 
la nave en la que viajas. 



Una vez que has ejecutado el programa, que verás que no es nada 
complicado, puedes optar por jugar con el teclado o con 
joysticks. Inicialmente dispones de cuatro vidas y tu misión 
consiste en alunizar sobre una plataforma espacial 
colonada en la lejana luna de un planeta extragaláctico. 
La operación ha de hacerse a la velocidad justa, pues de lo 
contrario te estrellarás. Para controlar la velocidad de aterrizaje 
puedes usar la tecla de cursor superior o el mando hacia adelante, 

pero esto significará que perderás punto. Una vez que estás 
posado sobre la plataforma aprecerán naves enemigas que tienes 
que eliminar disparando tus lásers y cuidando que no te den a ti. 
¡Suerte valiente! ¡Ah, si puedes mejorar el programa, ya sabes, 
remítenos las variantes, que las publicaremos! 



10 REM ************************* 
20 REM ** ** 
30 REM ** ALUNIZAJE - MSX ** 
40 REM ** ** 
50 REM ************************* 
60 REM -POR IGNACIO JOSE FERRIZ- 
70 REM VARIABLES E INSTRUCCIONES 

80 SCREEN0 rKEYOFF : XC=RND (-TIME) : X=50 : Y=0 :NA=4 :P=0 :W=1 :WE=1 : X5=RND < 1 ) :X5=INT(200* 
X5)+40 

90 DS=292 : DA=3 : DB=58 : DC=200 : R=2 : KM=3 
100 CLS 

110 BEEP:L0CATE4,14:INPUT" (.Utilizas joyst íck (s/n ) " ; 1$ 
120 IFZ*="s"ORZ*="S"THENZ=l :BOTO 180 
130 IFZ*="n"ORZ*="N"THENZ=0:GOTO 150 
140 CLS:GOTO 110 

150 CLS:L0CATE,5:PRINT" DISPARO= BARRA ESPACI ADORA" 

160 L0CATE6,7:PRINT"C0NTR0L= TECLAS DE CURSOR" 

170 LOCATE ,8:PRINT" (LA FLECHA HACIA ARRIBA ES EL FRENO)" 
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Programa estrella 



í 




180 PRINT :PRINT" TEN CUIDADO CON LOS INVASORES . " :L0CATE12 , 12 :PRINT"* MATALOS 
190 L0CATE2,14:PRINT" DEBES ALUNIZAR CORRECTAMENTE O" :L0CATE12 , 15 :PRINT"PERDERA 
S TU NAVE" 

200 PRINT: PRINT" SI TE INVADEN NAVES TAMBIEN MORIRAS" 
210 L0CATE9, 19 .-PRINT "PULSA UNA TECLA" 
220 COLOR 15,4,4 
230 REM nave 
240 IF INKEY*=""THEN240 
250 A 1 $=CHR* ( &B000 1 1 000 ) 
260 A2*=CHR*<&B00011000) 
270 A3$=CHR* ( &B000 1 1 000 ) 
280 A4*=CHR* ( &B 1 00 1 1 00 1 ) 
290 A5$=CHR$ (&B101 1 1 101 ) 
300 A6*=CHR*<&B1 101 1011) 
310 A7$=CHR$(&B 100 11001) 
320 A8$=CHR$ (&B101 1 1 101 ) 

330 A$=A1$+A2$+A3$+A4*+A5$+A6$+A7$+A8$ 
340 REM naves enemigas 
350 B 1 *=CHR* ( &B000 1 1 000 ) 
360 B2*=CHR* ( &B00 100100) 
370 B3$=CHR* ( &B00 1 1 1 1 00 ) 
380 B4$=CHR$<&B11111111) 
390 B5$=CHR$ ( &B00 1 00 1 00 ) 
400 B6$=CHR* ( &B0 1111110) 
410 B7*=CHR$ (&B0UU110) 
420 B8$=CHR$ ( &B 1 00 1 1 00 1 ) 

430 B*=B1*+B2$+B3*+B4*+B5$+Bt>*+B7*+B8* 

E 1 *=CHR* ( &B00000000 ) 



440 

450 E2*=CHR*<&B011UU0) 
460 E3$=CHR$(&B1 11 11111) 
470 E4$=CHR$<&B11111111) 
480 E5$=CHR* ( &B 1 1 0000 1 1 ) 
490 E6*=CHR*(8<B00000000) 
500 E7$=CHR$ (&B00000000) 
5 1 0 E8*=CHR* ( &B00000000 ) 
520 E*=E1*+E2*+E3*+E4*+E5$+E6*+E7*+E8$ 
530 REM meteorito 
540 Cl*=CHR*<8<B00111100) 
550 C2*=CHR*(&B01 000010) 
560 C3*=CHR* < &B 1 00 1 1 00 1 ) 
570 C4*=CHR* ( &B 1 0 1 00 1 0 1 ) 
580 C5*=CHR* < &B 1 0 1 00 1 0 1 ) 
590 C6*=CHR* < &B 1 00 1 1 00 1 ) 
600 C7$=CHR* ( &B0 1 0000 1 0 ) 
6 1 0 C8*=CHR$ ( &B00 1 1 1 1 00 ) 

620 C*=C 1 *-»-C2*-»-C3é+C4^-HC5*+C6*+C7*-KC8^ 
630 REM comienzo 
640 SCREEN2,2 

650 CIRCLE < 125 f DS) ,200, DA+4 
660 PAINT(125,100) ,DA+4 

LINE(30,187)-(235,181) ,2,BF 




670 
680 
690 

700 

710 
720 
730 



CIRCLE(DB,56) ,9*DA,DA+3, , ,1 .4 :PAINTSTEP (0 ,0) ,DA+3 
CIRCLE (DC ,20) ,4*DA ,DA-2 , , , 1 .4 :PAINTSTEP (0 ,0) ,DA-2 
CIRCLE ( 150 ,75) ,5+DA ,2+DA ,,,1.4 :PAINTSTEP (0 ,0) ,2+DA 



CIRCLE ( 150 ,35) ,4 ,DA , , , 1 .4 :PAINTSTEP (0 ,0) ,DA 
BEEP 

SPRITE*(0)=C$ 
740 SPRITE*<1)=A* 
750 SPRITE*<2)=B* 
760 SPRITE*<4)=E* 
770 D 1 *=CHR$ ( &B00000000 ) 
780 D2*=CHR* < &B000 1 0000 ) 



S 



790 D3*=CHR$ ( &B000 1 00013 ) 
800 D4$=CHR$ (&B00000000) 
810 D5*=CHR$ ( &B00000000 ) 
820 D6$=CHR* (&B00000000) 
830 D7*=CHR$(S<B00000000) 
840 D8^=CHR*(&B00000000) 
850 D*=D 1 $+D2$+D3$+D4*+D5$+D6*+D7$+D8* 
860 SPRITE*<3)=D* 
870 X=150:Y=0 

880 Y3=20:Y4=170:X3=RND(1) : X3=INT <230*X3) +30 :B3=150 
890 REM acción 
900 PUT SPRITE1 , <X ,Y) , 1 ,1 
910 FH=0 

920 IFP=RTTHENGOSUB1840 
930 E=STICK(Z) 
940 IFE=3THENX=X+3+KL 
950 IFE=7THENX=X-3-KL 
960 IFY<170THENGOSUB2000 
970 IFY>170THENÍ=170 
980 IFX>230THENX=230 
990 IFX<30THENX=30 
1000 Y=Y+2+FH:IFY<169THEN900 
1010 PUTSPRITE2, <X3,Y3) ,15,2 
1020 ER=RND(1) :ER=INT(3*ER)+0 
1030 IFER=1THENX3=X3+R 
1040 IFER=2THENX3=X3-R 
1050 IFER=3THENY3=Y3-R 
1060 IFER=0THENY3=Y3+R+1 :B3=B3-2 
1070 IFX3>230THENX3=230 
1080 IFX3<30THENX3=30 
1090 IFY3M80THENGOTO 1200 
1100 IFY4O170THENGOSUB1150 
1110 L=STRIG(Z) 
1120 IFLO0THENGOSUB1150 
1130 PUTSPRITE3,(X,Y4) ,0 
1140 GOTO 900 

Y4=Y4-40 : IFY4<0THENY4=170 
BEEP 

PUT SPRITE3, (X ,Y4) ,1 ,3 

IFX>X3-KMANDX<X3+KMANDY4=<Y3THENGOSUB1220:GOTÜ 880 



1150 
1160 
1170 
1180 
1190 

1200 

1210 




RETURN 
GOTO 1380 
GOTO 810 

1220 PUTSPRITE2,(X3,Y3) ,0 :PUTSPRITE3 , ( X , Y4) ,0 

1230 F0RH=1T03 

1240 FORG=0TO15 

1250 S0UND8,3 

1260 SQUND10,16 

1270 SOUND6,30:SOUND7,0 

1280 SOUND12,56:SOUND13,0 

1290 PUT SPRITE0, (X3,Y3> ,G,0 

1300 NEXTG 

1310 NEXTH 

1320 BEEP 

1340 PUT SPRITE0, (X3,Y3) ,0 
1350 GOTO 1950 
1360 RETURN 

1370 PUT SPRITE1,(X,Y) ,0 

1380 REM explosión 

1390 PUTSPRITE1 , (X ,Y) ,0 

1400 F0RD=1T02 

1410 FORDE=0TO15 

1420 S0UND6,15:S0UND7,7 

1430 S0UNB8,16:S0UND9,16 



% 
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Programa estrella 



1440 
1450 
1460 
1470 
1480 
1490 

1500 

1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 

1600 

1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 

1700 

1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
IZAR 

1800 

1810 
1820 
1830 
:KEY 
1840 
1850 
1860 
1870 
1880 
1890 

1900 

1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 

2000 
2010 

2020 
2030 



SOUND0,0 
SOUND10,16 

SÜUND11 ,0:SOUND12,16 
SOUND13,0 

PUT SPR I TE0 , < X , Y ) , DE , 0 
FORA=1TO10 ¡NEXTA 
NEXTDE 
NEXTD 

FORA=1TG500:NEXT 
SCREEN0 

NA=NA-1 :LOCATEll ,8 :PRINT"*HAS EXPLOTADO! « : IFNA<1THEN1820 
I FNA= 1 THENPR I NT : LOCATE 1 0 , 1 5 : PR I NT M TE QUEDA 1 NAVE" : GOTO 1570 
LOCATE10,17:PRINT"TE QUEDAN "NA" NAVES" 
FORA= 1 TO 1 000 : NEXTA 
RT=P:GOTO 630 

B 1 $=CHR$ ( &B00000000 ) 

F0RH=1T03 
FORG=0TO15 

PUT SPRITE0, <X3,Y3) ,G,0 
NEXTG 
NEXTH 

FORA=1TO10:NEXT 
B2$=CHR$ ( &B000 1 0000 ) 
B3$=CHR* (&B00101000) 
B4*=CHR$ ( &B000 1 0000 ) 
B5*=CHR$<&B101 11010) 
B6*=CHR*(&B1 11 11110) 
B7*=CHR* ( &B0 1 000 1 00 ) 
B8*=CHR* (&B00000000) 
IFP>24THENB4$=CHR* <&B1 1 1 1 1 1 10) 

IFP>44THENB6$=CHR$ <&B0 1000 100) :B2*=CHR$ (&B00000000) 

B$=B1$+B2*+B3$+B4$+B5:$+B6$+B7:*+B8:r 

SPRITE$(2)=B* 

REM 

SCREEN0 

LOCATE 1 ,6:PRINT"VAS A LLEGAR A OTRO PLANETA, INTEN TA" :L0CATE4 ,8 :PRINT" ATERR 
EN LA PLATAFORMA SINO" 

L0CATE6 , 10 :PRI NT "PERDERAS UNA DE TUS NAVES" :L0CATE14 , 15 :PRINT" " SUERTE " » 
FORA=1TO3000:NEXTA:GOTO 630 
LOCATE11 ,10:PRINT"FIN DE JUEGO" 

LOCATE, 15 :PRINT"TU PUNTUACION HA SIDO DE"Pl-BN"Ptos" :FORA=l TO3000 : NEXTA :CLS 
ON :END 

PUTSPRITE4 , (X5 , 178) ,1 ,4 
X5=X5+WE 

QW=RND<1) :QW=INT<FG*QW)+0 

IFQW=4THENWE=1 

IFQW=2THENWE=-1 

IFX5>225THENWE=-1 

IFX5<30THENWE=1 

IFX<X5-3ORX>X5+3THEN1930 
RETURN 

IFY=169ORY=170THEN 1380 

GOTO 1920 

P=P+1 :P1=P1+P+B3 

I FP= 1 0THENR=R+3 : RT= 1 0 : FG=50 : DS=370 : DA=3 : DB=63 : DC= 1 00 : GOTO 1 590 

I FP=25THENR=R+4 : KL=2 : RT=25 : FG=30 : DS=250 : DA=7 : DB=30 : DC= 1 50 : GOTO 1 590 

IFP=45THENR=R+5 :KL=5 :RT=45 :FG=20 :DA=2 :DS=360 :DB=50 :DC=15 :KM=5 :GOTO 1590 
GOTO 1360 

I FE= 1 THENFH=- 1 :BN=BN+1 

I FE=2THENFH=- 1 : X=X+5 :BN=BN+1 

IFE=8THENFH=-1 : X=X-5 :BN=BN+ 1 

RETURN 
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MI PROGRAMA MSX 



Todos nuestros lectores están invitados a escribir sus propios 

programas. 

MSX CLUB DE PROGRAMAS seleccionará aquellos que estén 
mejor diseñados, que sean originales, útiles o entretenidos y los 

publicará. 

Todos los listados que publiquemos recibirán 5.000 pts. y 
iciparán en el sorteo de una fabulosa impresora. 



BOLETIN DE PARTICIPACION 



(Para enviar adjunto al listado) 



NOMBRE DEL PROGRAMA 

TIPO DE LISTADO 

JOYSTICK O TECLADO 

INSTRUCCIONES DE CARGA: 
INSTRUCCIONES DE JUEGO: 



• •• 



TIPO DE GRABADORA EMPLEADA 
MARCA DEL ORDENADOR 



........ 















i¿ • » 



NOMBRE Y APELLIDOS DEL AUTOR 

EDAD CALLE N.' 

CIUDAD D.P 



TEL. 



Para uso exclusivo de MSX CLUB DE PROGRAMAS 

FECHA DE RECEPCION NOMBRE DEL EVALUADOR 

PUBLICABLE GRAFICOS SONIDO 

ORIGINALIDAD 



OBSERVACIONES 



• 



Para tocios aquellos listados que superen las 25 líneas es 
imprescindible enviar cassette grabado. 



Monitor al día 



EL «SPECTRA» DE 
II GENERACION 



Un micro de anticipación 




Tras el fabuloso SVI-728 MSX la com- 
pañía productora del Spectravídeo anun- 
cia el lanzamiento del modelo «Express», 
que pertenece a los microordenadores de 
la llamada segunda generación. 

El «Express» es una versión más poten- 
te que el SVI-728 y todo el hardware está 
integrado en una consola diseñada ergo- 
nómicamente. Al mismo tiempo sus arte- 
factos especiales incluyen un disk drive 
integrado de 3 1/2 pulgadas, un control 
de cursor ampliado, 80K de RAM, de los 
cuales 64K son para el usuario y 16K para 
gráficos, y un teclado semi profesional de 
73 teclas, detalle éste común a la mayoría 
de los aparatos MSX. 

Otro detalle interesante es que el «Ex- 
press» puede funcionar con software de 
disk BÁSIX MSK, MSX-DOS y CP/M, 
aunque esta última posibilidad requiere 
una carta especial de 80 columnas. El 
equipo -según se anuncia- trae un paque- 
te de software integrado en disco. Como 
se puede ver el nuevo Spectravídeo es tan 
versátil como fuerte, pero por ahora es 
cuestión de esperarlo. 


MANDOS 
TOSHIBA HX-J400 



Agiles y precisos 




Entre los joysticks compatibles con to- 
dos los ordenadores MSX este mes desta- 
camos el modelo HX-J400. Estos mandos 
tienen la bondad de adaptarse anatómica- 
mente sin mayores problemas. Pero no 
sólo eso sino también la alta precisión que 
permite a los jugadores desarrollar los jue- 
gos de cualquier naturaleza con seguridad 
y agilidad. Este mando, cuya clavija es si- 
milar a la de los mandos Atari, tiene dos 
botones de disparo, con lo cual también 
se gana en velocidad de respuesta. El pre- 
cio aproximado es de 3.500 ptas. 



GRAFICOS 
DE SONY 



El vuelo de la imaginación 



Entre los cartuchos de Sony destaca- 
mos a «Creative Greetings" por la versati- 
lidad de sus gráficos que permiten realizar 




NUEVA IMPRESORA 
SEIKOSHA SP-800 



La tentación gráfica 



Con esta nueva impresora de la serie SP 
se presenta como un gran avance tecnoló- 
gico en el campo de la informática. De ella 
podemos destacar su modo de impresión 
matricial bidireccional optimizada, la in- 
troducción automática de papel hoja a 
hoja, detección de error en la RAM inter- 
na, listado automático en hexadecimal. 
Además de esto tiene una gran variedad 
de funciones, como subrayado, negrita, 



doble pasada, etc., y también de tipos de 
letras, como «pica», «élite», «proporcio- 
nal», comprimido, expandido, etc. Pero 
lo más importante para los usuarios de 
MSX es que tiene un interface standard 
centronic. La impresora SP-800 es impor- 
tada por Dirac, S.L., Avda. B. Ibañez, 1 16 
- 46022 Valencia y Muntaner, 60, 2.° 4. a - 
08011 Barcelona. 
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cualquier tipo de gráficos. Gracias al 
«Creative Greetings» y la ayuda de una 
impresora se pueden confeccionar cartas, 
tarjetas de felicitaciones, dibujos y gráfi- 
cos de distinta naturaleza aplicables a tra- 
bajos escolares e incluso casi profesiona- 
les. El precio aproximado es de 9.900 
ptas. 



IVESON IMPORTA 
LOS FAMOSOS 
CARTUCHOS 

«PSS» 




Software de la nueva generación 

La empresa española Iveson Software 

(Riera de Tena, 15 Tda. 4. 08014 Barcelo- 
na - Tel. 249 3 1 96) importa para España 
los famosos cartuchos de juegos PSS. Se- 
gún se anuncia estos juegos gozan de gran 
popularidad en Gran Bretaña. Los cartu- 
chos de mayor éxito por el momento en 
nuestro país son «Máxima», «Les Flics» y 
«Manic Miner», cuyo precio es de 1 .800 
ptas. aproximadamente. 



MITSUBISHI LA GRAN NOVEDAD 
DE INF0RMAT'85 

El gusto por el diseño 




Una de las gratas sorpresas del INFOR- 
MATE referentes al sistema MSX, fue la 
presentación en sociedad del microorde- 
nador Mitsubishi ML-F80, que este mes 
se pone a la venta en España. La memoria 
RAM es de 64K, 32K de ROM y 16 de 
RAM Vídeo. Este aparato tiene un diseño 



de gran simplicidad y belleza y por su po- 
tencia puede transformarse en poco tiem- 
po en una nueva estrella dentro del campo 
de los microordenadores. Por nuestra 
parte muy pronto haremos un banco de 
prueba para comprobar la calidad de sus 
prestaciones. 



GOLDSTAR, NUEVO MSX 

Un coreano en Europa 




Hasta ahora sólo teníamos noticias de 
su existencia. Sin embargo, durante IN- 
FORMATE ya pudimos ver en nuestro 
país el microordenador MSX coreano 
GOLSTAR. La distribución de este nue- 
vo aparato en el mercado español corres- 
ponde a Disvent, S.A. (Entenza, 218 Ba- 
jos. 08029 Barcelona - Tel. [93] 330 08 
89). El Goldstar se presenta como un or- 



denador potente de 64K de RAM y 32K 
de ROM, siendo el resto de sus caracterís- 
ticas técnicas comunes similares a la de los 
mejores MSX del mercado. El diseño de 
este aparato es verdaderamente llamativo 
y cómodo para el usuario. El precio es si- 
milar al de los otros microordenadores 
MSX de su categoría. 
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NUESTRO AMIGO EL ROBOT 



Los que piensan que un orde- 
nador MSX sólo sirve para ju- 
gar se equivocan. Una serie de 
trabajos domésticos constitu- 
yen una alternativa de gran utili- 
dad para el hogar. 

Los micro ordenadores MSX, al 
estandarizar el lenguaje, han 
buido a una extraordinaria po- 
pularización de los ordenadores do- 



mésticos. Sin embargo, muchos usua- 
rios no saben ir más allá de los juegos y 
al poco tiempo dejan de divertirse. La 
clave para que esto no ocurra radica en 
utilizar las múltiples aplicaciones rela- 
cionadas con la vida cotidiana. 

Uno de los temas más interesantes es 
la robótica. Un MSX puede hacer co- 
sas tan simples como conectar el aire 
acondicionado, las alarmas anti robos, 
atender la programación televisiva, la 
grabación de vídeos o conciertos de 



alta fidelidad; también controlar el 
funcionamiento de lavavajülas, interfo- 
nos, luces, etc. 

Fabricantes de software han desa- 
rrollado interesantes programas edu- 
cativos mediante los cuales los niños 
pueden aprender matemáticas, geogra- 
fía, incluso a leer y escribir. También 
están los robots simples conocidos 
como turtles (tortugas), mediante los 
cuales los niños pueden dibujar imáge- 
nes o formas en un papel. 








Aunque la robótica está aún en pa- 
ñales, sobre todo en el plano domésti- 
co, hay familias que ya tienen en sus ca- 
sas un pequeño androide. Este puede 
conectarse al ordenador utilizando la 
entrada de expansión o bien la segunda 
ranura de cartuchos. Convenientemen- 
te programado el ordenador puede en- 
viar información para controlar el ro- 
bot o recibirla desde los sensores de 
éste. También son particularmente úti- 
les las entradas de joysticks ya que a tra- 
vés de ellas el ordenador puede detec- 
tar un micromando cerrado en un sen- 
sor de colisión, del mismo modo que se 
aprieta un mando de disparo. 

Pero como aún la robótica no está lo 
suficientemente desarrollada como 
para que se añada con facilidad un sen- 
sor de luz o un motor al ordenador, 
este apartado suele solucionarse tam- 
bién de un modo doméstico. Muchas 
empresas ya están fabricando conexio- 
nes, brazos, turtles y sistemas de visión 
que los aficionados pueden adaptar fá- 
cilmente a sus ordenadores MSX. En- 
tre estas compañías destacamos a Mit- 
subishi que ya ha iniciado la comercia- 
lización en Gran Bretaña de dos mode- 
los de pequeños robots, a los que llama 
ROBO, compatibles con el sistema 
MSX. Obviamente los ROBO no son 
más que una avanzadilla, pero que sir- 
ven para que nos familiaricemos con 
un artefacto capaz de desplazarse y eje- 
cutar determinadas órdenes programa- 
das. Esto significa que no basta con te- 
ner conexiones apropiadas, sino que 
también son necesarios programas es- 
peciales para controlar el hardware. 

De todos modos la robótica es una 
variante más de las aplicaciones de un 
aparato MSX. Este puede emplearse, 
sobre todo por su extraordinaria versa- 




tilidad, en archivos, agendas, contabili- 
dad, procesamiento de texto, composi- 
ción musical, etc. 

Como se aprecia las posibilidades de 
diversión y trabajo no terminan al ma- 
tar el último marcianito. Pero para sa- 



car el máximo provecho de una máqui- 
na como el MSX lo importante es co- 
nocerla a fondo y en este sentido nues- 
tro consejo es que no te duermas en los 
laureles, copia programas, léete a fon- 
do las instrucciones. 
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MSX 




EL MSX ES 

UN EDITOR MUY INTELIGENTE 



— 



El editor del MSX BASIC hace 
uso de una amplia gama de re- 
cursos técnicos avanzados ofre- 
ciendo al usuario la posibilidad 
de editar programas en cual- 
quier parte de la pantalla. El 
modo de sacarle más provecho 
es conociéndolo a fondo. MSX 
CLUB te lo explica en este inte- 
resante artículo. 



Al escribir un programa es casi normal 
que tengas que realizar modificaciones, 
cambiar líneas, reemplazar secciones, 
etc., lo cual hace pesado lo que en princi- 



pio debe ser divertido. El editor MSX 
BASIC es en este sentido muy "compren- 
sible" y gracias a sus órdenes LIST, 
AUTO, RENUM y DELETE facilitan 
enormemente tu tarea de programador. 
Para que tengamos una idea de cual es el 
modo en que trabaja el editor, nada mejor 
que ver en qué consiste la función de cada 
orden. 

LIST lo pone a la vista 

Antes de hacer funcionar el programa 
que acabas de listar es corriente mirarlo 
en pantalla, ya sea en su totalidad o par- 
cialmente. Para observar todo el progra- 
ma se emplea la orden LIST. Pero LIST 
tiene una serie de variantes que permiten 
que el programa sea editado de acuerdo 
con tus requerimientos, (ver fig. 1). 

Si el programa que tienes que listar es 



bastante largo, LIST pasa el programa 
hasta la última línea del mismo o hasta la 
última línea especificada en la orden 
LIST. Es decir aue hay cuatro modos de 
ver en pantalla la sección destacada del 
programa. La primera es empleando 
LIST ( line 1 ) - (line 2 ) , mediante la cual 
sólo se ve la sección deseada. La segunda 
es utilizando LIST y en cuanto aparece la 
sección que se busca, se pulsa CTRL y 
STOP al mismo tiempo para que se deten- 
ga el programa. 

Ten en cuenta que la tecla STOP detie- 
ne el programa temporalmente, así que si 
vuelves a pulsarla, el listado continúa. 

AUTO, el ayudante 

La orden AUTO es un ayudante solíci- 
to de los programadores. Gracias a él el 
ordenador adopta la numeración automá- 




tica de líneas y lo hace en cuanto se pulsa 
RETURN. 

Esta orden te facilita enormemente el 
trabajo ya que con ella no necesitas nume- 
rar cada línea, si sigues algunas de las va- 
riantes de la figura 2. Tienes dos opciones 
para emplear esta orden al escribir un 
programa. Si quieres obtener un progra- 
ma ordenado en líneas numeradas de 10 
en 10 la orden AUTO está configurada 
para ello. Pero, por ejemplo, si tu deseo es 
insertar una subrutina entre las líneas 140 
y 150 de un programa, necesitarás más es- 
pacio. Usa RENUM, 1000,140,100, lo 
que te dará como resultado las líneas, 
100,110,120, 130,1000,1100. Seguida- 
mente tienes que emplear AUTO 
1010,10, que te dará una serie de números 
de líneas incrementadas de 10 a partir del 
1010, de modo que resultará 100,110, 
120,130, 1000, (1010,1020,1030,...), 
1100. 

Para salir del modo AUTOpuedes ha- 
cerlo presionando CTRL y STOP al mis- 
mo tiempo o bien pulsando CTRL y C, 
también simultáneamente. 

Otro detalle importante durante el edi- 
taje es que si el número de líneas que edi- 
tas ya existe en el programa, el ordenador 
te avisa mediante la señal " *", después de 
la línea listada. En el caso de que preten- 
das eliminar la línea anterior con el mismo 
número hay que hacer caso omiso de la se- 
ñal, pero si quieres mantenerla, porque 
sólo es un error, tienes que pulsar la tecla 
RETURN. 



A la orden de RENUM 

La orden RENUM es verdaderamente 
una gran ayuda, pues te facilita el trabajo 
de ordenamiento de las líneas de un pro- 
grama. Habiendo tecleado un programa, 
al listado habrás comprobado que el in- 
cremento numérico de las líneas no es fijo 
y que al final se te presenta de un modo 
desordenado. Para que la presentación 
sea correcta la orden RENUM hace el tra- 
bajo de renumeración en incrementos de 
10 en 10. Pero si tu quieres otro incremen- 
to, puedes hacerlo a partir de una línea es- 
pecífica con diferentes incrementos. RE- 
NUM puede cambiar automáticamente 
los números de las líneas asociados con 
GOTO, GOSUB, RESTORE, THEN, 
ELSE, ON GOTO, ON GOSUB. Ade- 
más de una serie de variaciones de RE- 
NUM que puede ser usadas de acuerdo 
con las necesidades de cada usuario (Fig. 
3), con esta orden se puede crear espacio 
suficiente de números de líneas para in- 
sertar una sección en un programa, usán- 
dolo con AUTO, tal como lo indicamos 
más arriba. 

DELETE, la barredora 

Para borrar todas aquellas líneas que 
por algún motivo ya no interesan en el 
programa tecleado, la orden más simple y 
eficaz es DELETE. Para el caso de una 
sola línea basta con teclear el número de 



línea y pulsar RETURN, pero si lo que 
quieres es eliminar toda una serie lo mejor 
es emplear DELETE, pero sabiendo que 
lo que has borrado con esta orden ya es 
irrecuperable. Tal como sucede con los 
otros modos DELETE también tiene una 
serie de variaciones aplicables a diferentes 
necesidades de programación según pue- 
de verse en la figura 4. 

TECLAS DE CONTROL Y 
ESPECIALES DE FUNCION 

Tal como detallamos en la figura 5, los 
aparatos MSX tienen una serie de teclas 
efe función especiales y de control destina- 
das especialmente para el editaje de pro- 
gramas. A modo de observación señale- 
mos que todas las teclas de control son 
usadas conjuntamente con CTRL y la te- 
cla pertinente al mismo tiempo. 

MAPA DE MEMORIA 

Pero no sólo basta con conocer la fun- 
ción de determinadas órdenes sino tam- 
bién como son los distintos sectores de la 
memoria de un MSX y cómo trabajan. En 
la figura 6 mostramos un esquema de este 
mapa, con sus correspondientes bloques y 
áreas de trabajo. 

Area de trabajo del sistema: Se halla 
entre la dirección de memoria &HFFFF y 
&HF380 y es usada por el ROM MSX 
BASIC para sus operaciones internas. 



Figura 1 



VARIANTES DE LIST 

LIST Lista el programa completo 

LIST Une Lista la línea específica 
LIST(linel) 

( line 2 ) Lista el programa desde la 

línea 1 a la 2 
LIST line - Lista desde la línea específica 

hasta el final 
LIST - line Lista desde el principio 

hasta la línea específica 



Figura 2 



VARIANTES DE AUTO 



AUTO 
AUTO line 



AUTO line, 
¡ncrement 



AUTO, 
increment 



Numera las líneas desde el 10 
en grupos de 10 
Numera las líneas desde 
el número de la línea 
especificada en grupos de 10 

Numera las líneas desde 
el númro de la línea 
especificada en grupos de 
incremento 

Continúa desde el número 
de la línea que se ha dejado 
con el incremento 
especificado 



AUTO line Numera las líneas desde 
el número de la línea 
especificada con el mismo 
incremento que el 
incremento previo. 



Figura 3 



VARIANTES DE RENUM 



línea 2, desde la nueva línea 
10 con incrementos de 10 



RENUM 

RENUM 

(linel) 



RENUM 
(line l)(line 
(line 2) 



RENUM 
linel), 
line 2 ) , 
¡ncrement) 



RENUM, 
(Une 2), 
(increment) 



Renumera desde el número 
de línea 10 en grupos de 10 

Renumera desde el nuevo 
número de la línea 1 en 
incrementos de 10 

Renumera desde el anterior 
número de la línea 2 
empezando una nueva línea 
1 en incrementos de 10 



Renumera desde la anterior 
línea 2 empezando con una 
nueva línea 1 en el 
incremento especificado 



Renumera desde la vieja 



RENUM 
(line2) 



RENUM 
(increment) 



RENUM 
(line 2), 
(increment) 



Renumera desde la vieja 
línea 2 a partir de la nueva 
línea 10, con incrementos 
de 10 

Renumera desde la nueva 
línea 10 con un incremento 
especificado 



Renumera empezando con la 
nueva línea 1 desde la vieja 
línea 10 con el incremento 
dado 



Figura 4 



VARIANTES DE DELETE 



DELETE 

(Une) 
DETELE 
(linel), 
(line 2) 

DELETE 

(Une2) 



















Borra la línea especificada 



Borra desde la línea 1 a la 
2 inclusive 

Borra desde la línea 2 
inclusive 

'. 
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MSX 

Aquí se encuentran las diferentes varia- 
bles del sistema. 

Bloque de control de archivo: El límite 
superior de este bloque es &HF380 aun- 
que se puede pasar este límite para crear 
un área de memoria para archivar progra- 
mas en código de máquina y datos. Para 
esto se emolea la instrucción CLEAR. Si, 
por ejemplo, necesitas crear un espacio de 
usuario en código de máquina entre 
&HF380 v &HF0000, inserta CLEAR, 
&HF000 de modo que el mapa te queda- 
rá: 

&HF000 AREA DE TRABAJO DEL 
SISTEMA 

&HF380 AREA DEL USUARIO PARA 
CODIGO MAQUINA 

&HF000 BLOQUE DE CONTROL DE 
ARCHIVO 

Esta misma área está destinada a las 
operaciones de entrada y salida de archi- 
vos. Ordenes como INPUT y PRINT re- 
curren a este bloque. 

Area de cadenas: Este área almacena 
las variables de cadena. El tamaño por de- 
fecto del área es de 200 bytes, lo cual de- 
termina un límite máximo de largo de una 
cadena en 200 carácteres. Pero, al igual 



que con el bloque de archivo, este área 
también puede ser ampliada utilizando la 
instrucción CLEAR. Si, por ejemplo, que- 
remos aumentar la longitud de una cade- 
na a 250 bytes, hay que utilizar CLEAR 
250. 

Area de la pila: Aquí se almacenan las 
pilas de los bucles FÓR/NEXT, los GO- 
SUBs y las direcciones donde el BASIC 
tiene que volver tras las instrucciones 
NEXT o^ RETURN. 

Area libre: Esta es el área de la memo- 
ria no utilizada y su tamaño puede ser ave- 
riguado utilizando la función FRE tal 
como sigue: 

PRINT FRE (0) 

28815 (Para los MSX de 32K o 64K a la 

puesta en marcha) 
1243 1 (Para los MSX de 16K a la puesta 

en marcha) 

Este área disminuye cuando se incre- 
menta el tamaño del programa BASIC y 
variables. 

Espacio DIM: Las variables de la or- 
den DIM se encuentran aquí. El tamaño 
se incrementa mediante la ejecución de la 
orden DIM y si la orden es de cadena, 
también se almacenan en este sector los 
punteros del área de cadenas. 

Area de variables: Las variables numé- 
ricas y el puntero de cadena se almacenan 



aquí. La dirección donde se encuentran 
los datos de una variable particular puede 
ser hallada utilizando la función 
VARPTR. 

Area de programa BASIC: Tal como 
indica su nombre, aquí se encuentra el 
programa de BASIC MSX. 

Y después de esta sintética explicación 
de como edita un MSX y como está dividi- 
da su memoria, esperamos que tengas más 
claro cómo sacarle más rendimiento a tu 
aparato. 



Figura 6 


MAPA DE MEMORIA 


&HFFFF 


AREA DE TRABAJO 
SISTEMATICO 


&HF380 


BLOQUE DE CONTROL 
DE ARCHIVO 




AREA DE CADENAS 




AREA DE APILADO 




AREA LIBRE 




ESPACIO DIM 




VARIABLE 


&H8000 
&HC000 
para 16K 
MSX 


AREA DE PROGRAMA 
BASIC 







CODIGO 
HEX 


T. DE 

CONTROL 


T. 

ESPECIAL 


02 
03 


* (CTRL) (B) 

* (CTRL) (C) 




05 


* (CTRL) (E) 




06 
07 
08 


* (CTRL) (F) 

* (CTRL) (G) 
(CTRL) (H) 


BS 


09 


* (CTRL) (I) 


TAB 


0A 


* (CTRL) (J) 




0B 

OC 


* (CTRL) (K) 

* (CTRL) (L) 


HOME 
CLS 


0D 
0E 
12 


* (CTRL) (M) 

* (CTRL) (N) 

* (CTRL) (R) 


RETURN 
INS 



15 

18 

IB 

1C 

ID 

1E 

IF 

7F 



* (CTRL) (U 

* (CTRL) (X 

* (CTRL) (() 

* (CTRL) (Y) 

* /CTRL) (() 
CTRL) r> 
'CTRL) ( J 

(CTRL) (DEL) 



SELECT 
ESC 



DEL 



Mueve el cursor hacia la izquierda una palabra. 

Detiene la ejecución cuando el BASIC está esperando el INPUT. Vuelve al 
nivel de la orden. 

Borra todo lo que está a la derecha del cursor, incluyendo el carácter que 

está por debajo del cursor. 

Mueve el cursor hacia la derecha una palabra. 

Beep. 

Retrocede y borra un carácter a la izquierda del cursor y después tira todo 
lo que hay a la derecha del cursor hacia la izquierda con un espacio. 
Mueve hasta la próxima posición TAB. TAB está ajustada con un intervalo 
de 8 caracteres. Dejará blancos desde la posición de la que se ha movido. 
Alimentación de línea. Mueve físicamente el cursor hasta el principio de la 
próxima línea. 

Mueve el cursor hasta la parte superior izquierda de la pantalla. 

Limpia la pantalla y mueve el cursor hasta la posición de HOME (parte 

superior izquierda). 

Retorno del carro. Inserta la línea en cuestión. 

Mueve el cursor hasta el final de la línea en cuestión. 

Se pone en modo de INSERT. El cursor se convierte en la mitad de su 

tamaño normal y te permite insertar caracteres a la posición actual del 

cursor sin borrar nada. 

Borra toda la línea en cuestión. 

Ignorado por la versión actual del MSX. 

Ignorado por la versión actual del MSX. 

Mueve el cursor hacia la derecha un espacio. 

Mueve el cursor hacia la izquierda un espacio. 

Mueve el cursor hacia arriba un espacio. 

Mueve el cursor hacia abajo un espacio. 

Borra el carácter en la posición del cursor y tira la parte derecha hacia la 
izquierda un espacio. 




> INSERT si éste está pu 



1S 



¡¡NO ESPERES QUE PASE LA BANDA!! 

SUSCRIBETE A 

msxclub 



NI 150 PTAS AL de PROGRAMAS 



PORQUE MSX CLUB DE PROGRAMAS ESTA 

PENSADA PARA TI 



Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu casa sino que recibirás 12 

números pagando sólo 10 



SUSCRIBETE Y GANA 

BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



Nombre y apellidos 

Calle N.° 

Ciudad Provincia 

* 

D. Postal • • •• Teléfono • • • • • • 



••■••••••••■•••••«••a 



Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

Adjunto talón nominal a: 
MANHATTAN TRANSFER, S.A. 
C/. Roca i Batlle, 10-12 
Barcelona 







Tarifas: España por correo normal Ras. 1 .500 - 

Europa por correo normal Ptas. 1 .700- 

Europa por correo aéreo Ptas. 1 .900 - 

América por correo aéreo Ras. 3.700- 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB 



Programas 




EUROPA 




Este programa educativo 
consiste en un sensacional test 
para comprobar el grado de co- 
nocimientos geográficos que 
tienes relacionados con Europa. 
Es atrayente y divertido ir vien- 
do cómo aparecen en pantalla 
ciudades, capitales, países y 
banderas, acompañados de una 
música de fondo. 



Una vez que hayas introducido el pro- 
grama la máquina te hará una pregunta 
aleatoria acerca de la capital de determi- 
nado país europeo y tú deberás respon- 
derle. Para hacerlo tienes que teclear el 
nombre de la ciudad, cuidando de hacerlo 
en mayúscula. Después sólo tienes que 
pulsar RETURN. Si la respuesta es co- 
rrecta sonará una musiquita de fondo y la 
máquina te dirá que acertaste y si no lo es, 
la música es más triste y te anuncia el fallo. 
En ambos casos aparece en pantalla el 
mapa de Europa señalando el país y su co- 
rrespondiente capital y bandera. ¡Que 
aprendas divirtiéndote! 



REM 

REM 

REM 
REM 
REM 
DIM 



* JESUS P. BARROSO POLO * 

* DOMINGO BAREA PEREZ * 

* MSX-1985-EURGPA- * 
*t****tt*tttttt*ttt%tt*$* 

(28) ,C*(28) 



3 

4 

5 
6 

7 N* ( 1 > =" ALBANIA" :N* (2) ="AUSTRI A" :N* (3) =" BELGICA" :N* (4) ="BULGARIA" :N* (5) ="CHECO 

LOVAQU I A " : N* ( 6 ) = " D I N AM ARC A " : Ni ( 7 ) = " ESPAmA " : N* ( 8 ) = " F I NL AND I A " 

9 N*(9)="FRANCIA" :N$ (1(3) ="GRAN BRETAÑA" :N* ( 1 1 ) ="GRECI A" : N$ ( 1 2 ) = " HOLANDA " :N*<13) 
"HUNGRIA" :N$ < 14) =" IRLANDA" :N$ < 15) =" ISLANDI A" :N$ ( 16) =" ITALIA" 

11 N*(17)="MALTA" :N$ ( 1 8 ) =" NORUEGA" :N* ( 19) ="POLONI A" :N* (20) = "PORTUGAL" :N*(21)="R 
D .ALEMANIA" :N* (22) ="R .F .ALEMANIA" :N* (23) ="RUMANI A" 

13 N*(24)="SUECIA" :N* (25) = "SUI ZA" :N* (26) «"TURQUI A" :N* (27) ="U -R .S .3 . " :N*(28)="YU 

OSLAVIA" 

15 C$(1)="TIRANA" :C*(2)="VIENA" :C* (3) ="BRUSELAS" :C$ (4) ="S0FI A" :C$ (5) = " PRAGA" :C* 
6) ="COPENHAGUE" :C$ (7) =" MADRID" :C$ (8) ="HELSINKI " :C* (9) ="PARIS" 

17 C* < 10) =" LONDRES" :C* ( 1 1 )=" ATENAS" :C* ( 12) ="AMSTERDAM" :C* ( 13) =" BUDAPEST" :C* ( 14) 
"DUBLIN" :C*(15)="REYKJAVIK" :C* ( 16) ="R0MA" :C*(17)="LA VALLETTA" 

19 C*(18)="0SL0" :C*(19)="VARS0VIA" :C* (20) ="LISB0A" :C* (21 ) ="BERLIN" iCt (22) ="B0NN 
: C* ( 23 ) = " BUC AREST " : C* ( 24 ) = " EST0C0LM0 " : C$ ( 25 ) = " BERNA " 

20 C* (26) =" ANKARA" :C$ (27) ="M0SCU" :C* (28) ="BELGRAD0" 

21 CLS:PRINT:PRINT" INTRODUCIR LA CAPITAL DE LA NAC ION" : PR I NT " CORRESPOND I ENTE " 

22 PRINT :PRINT" Y PRESIONAR LA TECLA -RETURN- " 

23 PRINT: PRINT "PARA TERMINAR EL PROGRAMA PULSAR LAS TECLAS CTRL-STOP CONJUNTAME 



20 



NTE" 

24 PRINT :PRINT : PRINT "PARA COMENZAR PRESIONAR CUALQUIER" :PRINT"TECLA" 

25 IF INKEY*="" THEN GOTO 25 

26 OPEN "GRP : " AS#1:SCREEN 3 

27 PRESET (40,60) 

28 PRINTttl, "EUROPA" :FOR 1 = 1 TO 2000:NEXT 
CLS 

SCREEN i* 
KEY OFF 

X=INT(RND(1)*28)+1 
CLS 

COLOR 15,4,4 
LOCATE 8,10 

PRINT "CAPITAL DE " ;NS (X) 
LOCATE 8,12 
INPUT R* 

IF R$=CS(X) THEN GOTO 151 
PRINT "FALLO" 
LOCATE 8,16 

PRINT "ES " jC*<X) 
PLAY "CCCCCCC" 



29 

34 
35 
41 
51 
52 



53 
61 
71 
81 
91 

101 

105 

1 1 1 
112 
121 
131 
141 
151 
152 
153 
161 
171 
181 
191 
201 



FOR 1=1 TO 2000:NEXT 
CLS 

GOTO 191 

PRINT "ACERTO" 

PLAY "04F#DBAEGF#EF#R4" 

PLA Y "Q4F#DBAEGF#ED" 

FOR 1=1 TO 2000:NEXT 

CLS 

GOTO 191 
COLOR ,5 

SCREEN 2 
PSET (32,170) 





21 1 

221 DRAWF6E6R6E6U6E6U6E6R6F24D6G6R6É6U6R6H24E6F12R6F18D6F6R6U12R6H6U6R12F6E6U1-5 
E 1 2R6F6E 1 2D 1 2R6F 1 8D6G6L30H6L6G6H6G6D 1 2F 1 2R 1 8F6E6R30E6R6U 1 8F6R6 ■ 

231 DR AW " U 1 38H6L6M 1 8L24G6D6G6D6G6D6G6L6U6H6R 1 2U6H6L6H6L6U6L 1 8G36L6G 1 2D 1 8R6E6F6D 1 
2R6E6U 1 2E6H6E 1 2R6U6E6R6D6G 1 2D6F6R 1 2D6L6D6L6D 1 2L6G6L 1 2G6L6H6 " 

241 DRAWU12G6D12L12G6L6G12L12D6F6D12L18D24R6" 
251 DRAW "BM32,170U18L6" 
261 DRAW ,, BM62,146L18" 

27 1 DRAW " BM74 , 1 40U6E6NR 1 8U6NH 12E6NH1 2NU 1 2F6NG6R 1 8F6NG6R 1 2E 1 2NU6L 1 8H6NH6G6L6NG6H6 

U6 

281 BRAW"BM92 , 

291 DRAW "BM116,152R6F6ND6E12R6F6" 
30 1 DRAW " BM224 . 1 5 BR6F6R6 " 
3 lT~rjRATJ TT Bhl40 , íl 0E6H6L6H6B66BL 1 2D6 " 

32 1 DRAW "BM146 ,68E1 2U6H6U 1 8E6BL6L 1 2ND 1 8S6L66 1 2D6G 1 2D6L6D 1 8 " 
331 DRAW"BM86,1B2R6D6L6U6" 

34 1 DRAW " BM38 , 1 1 0E6R 1 8U6E6H 1 2U 1 8H6G6D6F6G6D6G6F6G6D6 " 

351 DRAW " BM26 , 92E6U6E6H6L666D6G6D6R 12" 

DRAW " BM26 , 26E 1 2U6H6L 1 2D6H6L6D6R6D 1 2F6R6 " 
DRAW"BM86,9BR6" 
FOR 1 = 1 TO 200 :NEXT 

ON X GOTO 402,414,426,438,450,474,488,50(3,514,526,564,578,590,602,614,628.64 
0,654,668,680,692,704,716,728,742,754,766,778 ' ' OB4 ' t, "- WH . M 

402 LINE (44, 20) -(84,50) ,13, BF 
404 FOR J=l TO 50:FOR T=l TO 3 
406 LINE ( 1 24 , 1 55 ) - ( 1 27 , 1 58 ) , T , BF 
408 FOR H=l TO 30:NEXT H 
410 NEXT T,J 
412 GOTO 34 

414 LINE (44,20)-(84,30) ,8 ,BF :LINE (44 ,30) - (84 ,40) , 15 ,BF :LINE (44 ,40) - (84 ,50) ,8,BF 
416 FOR J«l TO 50:FOR T=l TO 3 
4i8 LINE ( 109 , 125) - ( 1 12 , 128) ,T,BF 
420 FOR H=l TO 30:NEXT H 



361 
371 
381 

400 
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422 
424 
426 
428 
43i? 
432 
434 
436 
438 
440 
442 
444 
446 
448 

450 

452 
454 
456 
458 
460 
462 
464 
466 
468 
470 
472 
474 

1NE 
476 
478 
480 
482 
484 
486 
488 
490 
492 
494 
496 
498 

500 

F:L 

502 
504 
506 
508 
510 
512 
514 
516 
518 
520 
522 
524 
526 
528 
53& 

532 
534 
536 
538 

540 




NEXT T,J 
GDTO 34 

LINE (42,20)- (56,50) , 1 ,BF :LINE (56 ,20) - (70 ,50) , 10 ,BF :LINE (70 ,20) - (84 ,50) ,8,BF 

FÜR J=l TG 50:FOR T=l TO 3 

L1NE<77,111)-(79,114> ,T,BF 

FÜR H=l TO 30:NEXT H 

NEXT T,J 

GOTO 34 

LINE(44,20)-(84,30) , 1 5 , BF :L I NE ( 44 , 3&) (84,40) , 12 ,BF :LINE (44 ,40) - (84 ,50) ,8,BF 
FÜR J=l TO 50: FÜR T=l 70 3 * 1 1 

LINE(149,144)-(152.147) ,T,BF 
FÜR H=l TO 30:NEXTH 
NEXT T,J 
GOTO 34 

A$="R42D18L24H18" 
DRAW"C15BM44,15"+A* 
PAINT(46,16) ,15 
AS="L42E18R24D18" 
DRAW «' C8BM86 ,51" + A$ 
PAINT(85,49) ,8 
DRAW M BM44 , 1 5C 1 5D36 " 
FÜR J=l TO 50:FOR T=l TO 3 
LINE(113,117)-(116,120) ,T,BF 
FOR H=l TO 30.-NEXT H 
NEXT T,J 
GOTO 34 

LINE (44, 20) -(51 ,33) ,8 ,BF :L INE (54 ,20) - (84 ,33) ,8 ,BF :L INE (44 ,36) - (51 ,49) ,8,BF:I 
(54,36)-(84,49) ,8,BF ' ' 1 

LINE (44, 33) -(84, 36) , 1 5 ,BF :LINE (51 ,20) -(53 ,49) ,15,BF 

FOR J=l TO 50:FOR T=l TO 3 

LINE<90,95)-(93,98) ,T,BF 

FOR H=l TO 30:NEXT H 

NEXT T,J 

GOTO 34 

F¿R E J=W^ ' 8 ' BF 
LINE<42,156)-(43,159) ,T,BF 
FOR H=l TO 30:NEXT H 

NEXT T,J 
GOTO 34 

LINE (44,33)- (84, 36) ,4 ,BF :LINE (51 ,20)-(54,49) ,4,BF 
FOR J=l Tü 50:FOR T=l TO 3 

LINE (137, 65) -(140,68) , T ,BF 
FOR H=l TO 30:NEXT H 
NEXT T,J 
GOTO 34 

Foíf J=í' TO ] 1£f¿R*t±V TO ' 3 1 ^ ( ^ ' 20> - (7e, ' 5,a) ' 15 ' BF!LINE<7,Z, ' 2,a) - (B ^»50),8,BF 

LINE(57,125)-(60,128) ,T,BF 
FOR H=l TO 30:NEXT H 
NEXT T,J 
BOTO 34 

aÍ=»R3f\1d^ 

DRAW"C8BM50.2"+A* 

PAINT<62,14) ,8 

Aí="R3D3G14L3U3E14" 

DR AW " C8BM89 , 2 " +A* 

PAINT(80,14) ,8 

A*= " D3R3E 1 4U3L3G 1 4 " 
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542 DRAWC8BM50 ,41 "+A$ 

544 RAI NT (62 ,32) ,8 

546 Aí= M D3L3H14U3R3F14 M 

548 DRAW"C8BM92,41 M +A* 

550 RAI NT (80 ,32) ,8 

552 DRAW"BM48 ,0C15R46D45L46U45" 

554 FÜR J=l TO 50:FOR T=l TG 3 

556 LINE (6«2í ,98) - (63 , 101 ) ,T,BF 

558 FÜR H=l Tü 30:NEXT H 

560 NEXT T,J 

562 GGTD 34 

564 LINE(44,20)-(84,49) ,7 ,BF :LINE (49 ,20) - (52 ,36) , 15 ,BF :LINE (44 ,27) - (60 ,30) ,15,BF 

:LINE(60,24)-(84,27) ,15,BF 

566 LINE(60,30)-(84,33) , 15 ,BF :LINE (44 ,36) - (84 ,39) , 15 ,BF :LINE (44 ,42) - (84 ,45) ,15,B 

568 FÜR J=l TO 50:FOR T=l TO 3 
570 LINE(137,173>-<140,176) ,T,BF 
572 FOR H=l TO 30:NEXT H 

574 NEXT T,J 
576 GOTÜ 34 

578 LINE(44,20)-(84,30) ,8 ,BF :LINE (44 ,30) - (84 ,40) , 15 ,BF :LINE (44 ,40) - (84 ,50) ,4,BF 

580 FOR J=l TO 50-.FOR T=l TO 3 ? . 

582 L INE (80 , 104) - (83 , 107) ,T,BF 

584 FOR H=l TO 30:NEXT H 

586 NEXT T,J 

588 GOTO 34 

590 LlNE(44,20)-(84,30> ,8 ,BF :LINE (44 ,30) - (84 ,40) , 15 ,BF :LINE (44 ,40) - (84 , 50) ,12, BF 
592 FOR J=l TO 50:FOR T=l TO 3 
594 LINE(125,131)-(128,134) ,T,BF 
596 FOR H=l TO 30:NEXT H 

598 NEXT T,J 
GOTO 34 

683 LlNE(42,20)-(56,50) , 1 2 , BF : L I NE ( 56 , 20 ) - ( 70 , 50 ) , 15 ,BF :LINE (70 ,20) - (84 ,50) ,9,BF 
S04 FOR J=l TO 50:FOR T=l TO 3 1111 
606 L INE (31 ,80) -(34,83) ,T,BF 
S08 FOR H=l TO 30:NEXT H 

610 NEXT T,J 
6Í7 oÜTO 34 

61? L INE (44 ,28)- <51 ,33) ,4 ,BF :LINE (54 ,20) - (84 ,33) ,4 ,BF :LINE (44 ,36) - (51 ,49) ,4,BF 
616 LINE<54,36)-(84,49) ,4 ,BF :LINE (44 ,33) - (84 ,36) ,8 ,BF :LINE (51 ,20)-(53,49) ,8,BF 
618 FOR J=l TO 50:FOR T=l TO 3 
620 LINE(18,18)-(21 ,21) ,T,BF 

622 FOR H=l TO 30:NEXT H 
624 NEXT T,J 
626 GOTO 34 

628 LINE<42,20>-<56,50) , 1 2 ,BF :LINE (56 ,20) - (70 ,50) , 15 ,BF :LINE (70 ,20) - (84 ,50) ,8,BF 
630 FOR J=l TO 50-.FOR T=l TO 3 
632 t_INE(91 , 154) - (94 , 157) ,T,BF 

634 FOR H=l TO 30:NEXT H 
636 NEXT Í,J 
£>38 GOTO 34 

640 LINE(44,20)-(64,50) , 15 ,BF :LINE (64 ,20) - (84 ,50) ,8,BF 
642 DRAW " BM46 , 26C8R3U3R2D3R3D2L3D3L2U3L3U2 " 
644 FOR J=l TO 50:FOR T=l TO 3 

646 L I NE ( 89 , 1 85 ) - ( 92 , 1,88 ) , T , BF 
648 FOR H=l TO 30:NEXT H 
650 NEXT T,J 
652 GOTO 34 

654 LINE<44,20)-(51 ,33) ,8 ,BF :LINE (54 ,20) - (84 ,33) ,8 ,BF :LINE (44 ,36) - (51 ,49) ,8,BF 
656 LINE<54,36)-(84,49> ,8 ,BF :LINE (44 ,33) - (84 ,36) ,4 ,BF :LINE (51 ,20)-(54,49) ,4,BF 

658 FOR J=l TO 50: FOR T=l TO 3 
660 L I NE ( 92 , 7 1 ) - ( 95 , 74 ) , T , BF 
662 FOR H=l TO 30:NEXT H 
664 NEXT T,J 
666 GOTO 34 
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, , . 

— 

668 LINE<44,20>-(84,35) , 15 ,BF :LINE (44 ,35) - (84 ,58) f B,BF 

670 FGR J=l Tü 50: FOR T=l Tü 3 

£>72 LINE ( 134 , 104) - ( 137 , 1U7) ,T,BF 

674 FÜR H=l Tü 30:NEXT H 

676 NEXT T f J 

678 GOTO 34 

680 LINE (44, 20) -(58, 50) , 12 ,BF :LINE<58 ,20) - (84 ,50) ,8,BF 

682 FOR J=l TO 50-.FOR T=l TO 3 
684 LINE (27 , 163) - (30 , 166) ,T,BF 
686 FOR H=l TD 30:NEXT H 
688 NEXT T,J 
690 GOTO 34 

692 LINE(44,20)-(84,30) ,1 ,BF :L I NE (44 ,30) - (84 ,40) ,8 ,BF :LINE (44 ,40) - (84 ,50) ,10,BF 

694 FÜR J=l TO 50:FOR T=l TO 3 
696 LINE ( 107 , 107) - ( 1 10 , 1 10) ,T,BF 
698 FOR H=l TO 30:NEXT H 
700 NEXT T,J 
702 GOTO 34 

704 LINE (44, 20) -(84, 30) ,1 ,BF :LINE (44 ,30) - (84 ,40) ,8 ,BF :LINE (44 ,40) - (84 ,50) ,10,BF 

706 FOR J=l TO 50 8 FOR T=l TO 3 
708 LINE (92 , 1 10) - (95 , 1 13) ,T,BF 
710 FOR H=l TO 30-.NEXT H 
712 NEXT T,J 
714 GOTO 34 

716 LINE(42,20)-(56,50) ,4 ,BF :LINE (56 ,20) - (70 ,50) , 10 ,BF :LINE (70 ,20) - (84 ,50) ,8,BF 

718 FOR J=l TO 50:FÜR T«t TO 3 
720 LINE(155,137)-(158,140) ,T,BF 
722 FOR H=l TO 30:NEXT H 
724 NEXT T,J 
726 GOTO 34 

728 LINE (44, 20) -(51 ,33) ,7 ,BF :LINE (54 ,20) - (84 ,33) ,7 ,BF :LINE (44 ,36) - (51 ,49) ,7,BF: 

INE (54 ,36) - (84 ,49) ,7,BF 

730 LINE(44,33)-(84,36) , 10 ,BF :LINE <51 ,20) - (54 ,49) ,10, BF 

732 FOR J=l TO 50: FOR T=l TO 3 

734 LINE ( 108 ,72) - ( 1 1 1 ,75) ,T ,BF 

736 FOR H=l TO 30:NEXT H 

738 NEXT T,J 

740 GOTO 34 

742 LINE(44,20)-(84,50) ,8 ,BF :LINE (62 ,25) - (66 ,45) , 15 ,BF :LINE (54 ,33) - (74 ,37) ,15,B 

744 FOR J=l TO 50:FOR T=l TO 3 

746 L I NE ( 86 , 1 22 ) - ( 89 , 1 25 ) , T , BF 

748 FOR H=l TO 30-.NEXT H 

750 NEXT T,J 

752 GOTO 34 

754 LINE (44 ,20)-(84 ,50) ,8 ,BF :CIRCLE (58 ,35) ,8,15,90*3.14/180,270*3.14/180 

756 FOR J=l TO 50: FOR T=l TQ 3 

758 LINE ( 185 , 172) -( 188 , 175) ,T,BF 

760 FOR H=l TO 30:NEXT H 

762 NEXT T,J 

764 GOTO 34 

766 LINE (44, 20) -(84, 50) ,8 ,BF -.CIRCLE (51 ,28) ,4,1 ,270*3.14/180,90*3.14/180 

767 DRAW"BM56,32C1H5NG1NE2 M :DRAW U BM49 ,310161 " 

768 FOR J=l TO 50:FOR T=l TO 3 
770 LINE ( 186 ,77) -( 189 ,80) ,T,BF 
772 FOR H=l TO 30:NEXT H 

774 NEXT T,J 
776 GOTO 34 

778 LINE (44, 20) -(84, 30) ,4 ,BF :LINE (44 ,30) - (84 ,40) , 15 f BF :LINE (44 ,40) - (84 ,50) ,8,BF 
780 FOR J=l TO 50:FOR T=l TO 3 
782 LINE ( 1 19 , 143) - ( 122 , 146) ,T,BF 
784 FOR H=l TO 30:NEXT H 

786 NEXT T,J 
788 GOTO 34 
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EL AHORCADO 



¡Cuántos habrán jugado o 
juegan a este popular juego en el 
colé! ¡Pues nosotros te lo ofre- 
cemos para que lo programes en 
tu MSX y juegues con tus ami- 
gos o hermanos en casa! ¡El lis- 
tado es fácil de introducir y la di- 
versión es grande! 



Una vez que hayas entrado el programa tienes que pulsar RUN y comprobarás que en pantalla aparece la inicial de una palabra y 
una serie de espacios en blanco que tú tienes que rellenar. Si aciertas te habrás librado de la soca. Otra de las ventajas de este juego 
es que puedes jugarlo tanto contra la máquina o contra otro compañero, para una cosa u otra el mismo ordenador te da las instruc- 
ciones. 




W,l :PRINT 



CHR*<&H2E) :NEXT 
CHR*<&H2E) :NEXT 



5 KEY OFF :SCREEN 1 :COLOR 1,6,11 
10 CLS:FOR W=0 TO 40: LOCATE 
20 FOR W=0 TO 40: LOCATE W,18:PRINT 
30 LOCATE 10,5:PRINT "AHORCADO" 
40 LOCATE 1,10:PRIIMT "escrito por JOSE ESP I- El RA" 
50 FOR W=l TO 666:NEXT 
60 LOCATE 12,22:PRINT "MSX" 

70 LOCATE 2,13:PRINT "Piedras Bl ancas-ASTURI AS" 
80 LOCATE 10,16:PRINT "25-2-85" 
90 FOR W=10 TO 1900:NEXT 
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100 
110 

120 
130 
135 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 



PULSA UNA TECLA — " 



260 
270 
280 
290 

300 

310 
320 
330 
340 



360 
370 
380 
390 
400 
410 
420 
430 



450 
460 
470 
480 
490 
500 
510 
520 



LOCATE 4, 20: PRINT " 
E*=INKEY* 

IF INKEY*= ,,M THEN 120 ELSE 130 
ON ERRGR GOTG 1160 
SCREEN 0 

KEY OFF:CÜLÜR 1,7 :CLS:CLEAR 
GOSUB 680 

LOCATE 0,8:INPUT "NECESITAS INSTRUCCIONES (S/N) > 

IF 1*="" THEN 160 

IF I*="S"THEN GOSUB 960 

FOR 1= 0 TO 35:L0CATE I,8:PRINT CHR$ (32) :NEXT 
FOR 1 = 1 TO 4:PLAY "1 4abcdac" :NEXT 



I* 



LOCATE 5,10:INPUT "nombre jugador 1 > 



•i 



;J1* 
;J2* 



540 
550 
560 
570 
580 
590 

600 

610 

620 

630 

640 

650 

660 

250, 

670 

680 

690 



IF Jl$="" THEN 210 

LOCATE 5,12:INPUT "nombre jugador 2 > 

IF J2*="" THEN 230 

FOR 1= 5 TO 40:LOCATE I,10:PRINT CHR$ (32) :NEXT 
FOR 1=0 TO 40:LOCATE I,12:PRINT CHR* (32) :NEXT 
FOR 1=1 TO 10:BEEP:NEXT 

LOCATE 3,10:PRINT "solo el jugador 1 > " ;J1* 

P*=" " 

LOCATE 0,13:INPUT "introduce la palabra > " ;P* 

IF p$=»» THEN 300 

L=LEN(P*):IF L>10 OR L<4 THEN BEEPrGOTO 730 
FOR 1=1 TO L 

FOR W=65 TO 90:IF MID* <P* , I , 1 ) = CHR*(W) THEN NEXT W :GOTO 730 
NEXT I 

FOR 1=3 TO 40:LOCATE I,10:PRINT CHR* (32) :NEXT 
1=0 TO 40:LOCATE I,13:PRINT CHR$ (32) :NEXT 
1=1 TO 10:BEEP:NEXT 

1 = 11 TO 14+ L : LOCATE I,13:PRINT CHR* ( 1 ) ;CHR$ (&H57) :NEXT 
1 = 11 T014+L:L0CATE I,17:PRINT CHR$ ( 1 ) ;CHR$(&H57) :NEXT 
W=14 TO 16:L0CATE 11,W:PRINT CHR* ( 1 ) ;CHR* (&H56) :NEXT 
W=14 TO 16:L0CATE 14+L,W:PRINT CHR* ( 1 ) ;CHR* (&H56) :NEXT 

LOCATE 1,10:PRINT "SOLO EL JUGADOR 2 > " ; J2* 

LOCATE 13,15:PRINT LEFT*(P*,1); 
FOR 1=2 TO L-1:PRINT ".";:NEXT 
PRINT RIGHT*(P*,1) 
C=-l :P=0:Z=0:S=9 
P=P+1 

FOR W=0 TO 37: LOCATE W 
FOR W=0 TO 37: LOCATE W, 
LOCATE 5,22:PRINT "Fallos: ";Z 
LOCATE 20,22: PRINT "Aciertos: 
LOCATE 35, 5: PRINT S 
LOCATE 17,22:PRINT "#" 
A*=" " 

LOCATE 5,19:INPUT "introduce una letra > " ;A$ 

IF A*="" THEN LOCATE 31,19:PRINT CHR* (32) :GOTO 550 
IF LEN <A*)>1 THEN 590 ELSE 600 

FOR W=30 TO LEN (A*) +30 :LOCATE W,19:PRINT CHR$ (32> :NEXT :GOTO 




FOR 
FOR 
FOR 
FOR 
FOR 
FOR 



,18:PRINT 

?0:PRINT 
ii 



CHR*(S<H2D) :NEXT 
CHR*(&H2D> :NEXT 

;C+1 



31 ,19:PRINT 



A*;" 



CHR$ (32) 

< — 1 etras" 



LOCATE 12+W,15:PRINT A$ :PLAY "E18B" :C=C+1 



LOCATE 

LOCATE P, 7: PRINT 
X=C:FOR W=2 TO L-l 
IF A*=MID*(P:*,W,1) THEN 
IF C=L-3 THEN GOTO 930 
NEXT W:GOSUB 1150 

PLAY "110c":S=S-l:Z=Z+l:ON Z GOSUB 1170,1180,1190,1200,1210,1220 
1260 

GOTO 480 

FOR W= 0 TO 37:L0CATE W,0:PRINT CHR* (&H2A) :NEXT 
PRINT "*■*********♦♦♦ AHORCADO **********■*♦♦♦•• 

O 

/ 



,1230,1240,1 



7013 FGR W=0 TO 37 :LOCATE W,4:PRINT CHR* (&H2A) :NEXT 
710 RETURN 
720 STOP 

730 CLS:GOSUB 680ILOCATE 0 , 12 :PRINT"sol o se admiten letras, diez máximo" 
740 FÜR W=10 TO 1222:NEXT 

750 FOR 1=0 Tü 40:LOCATE I,12:PRINT CHR$ (32) :NEXT 
760 GOTO 250 

770 FOR 1=0 TO 38:L0CATE I,19:PRINT CHR$ (32) :NEXT 

780 LOCATE 3,19:PRINT "perd i ste , 1 a palabra era : " ;P$ :PLAY "1 If afile" 
790 FOR W=100 TO 3300:NEXT 

800 LOCATE 2,22:INPUT "QUIERES SEGUIR (S/N) > " ;R$ 

810 IF R*="N" THEN 850 
820 CLSrGOSUB 680 
830 GOTO 250 

840 FOR 1=0 TO 40:FOR J=8 TO 22:L0CATE I,J:PRINT CHR* (32) :NEXT J,I 
850 CLSrGOSUB 680 

860 LOCATE 9 , 12 :PRINT " 

870 LOCATE 9,14:PRINT "de acuerdo ,ad ios" 

880 LOCATE 9,16:PRINT " " 

890 PLAY "1 le" 

900 AS=INKEY*:IF INKEY$=" " THEN 900 
910 GOTO 120 
920 END 

930 FOR 1=0 TO 38:L0CATE I,19:PRINT CHR$ (32) :NEXT 

940 LOCATE 3,19:PRINT "ACERTASTE , ESA ERA LA PALABRA" : PLAY " 1 8cad 16ef ggf ed20eba6a 
bea" 

950 GOTO 790 

960 CLS:GOSUB 680 

970 PRINT 

980 PRINT "el jueguo consiste en que el primer jugador introduzca una pal abra ,q 
ue el segundo tratara de adivinar" 
990 PRINT 

1000 PRINT "para ello el ordenador dará la primera y la ultima letra de la pal ab 
ra" 

1010 PRINT 

1020 PRINT "y tantos puntos entre las dos como letras falten." 
1030 PRINT 

1040 PRINT "las palabras solo pueden tener un máximo de DIEZ LETRAS, no se per 
miten números ni signos" 
1050 PRINT 

1060 PRINT" memoria ocupada: " ; :PRINT 28815-FRE (0) ; :PRINT"b its » 

1070 PRINT " m 

1080 FOR W=l TO 3 

1090 PLAY"a2cdefgab3bagcdef " 

1100 NEXT 

1110 FOR W=100 TO 5555:NEXT:F0R W=l TO 40 :LOCATE W ,21 :PRINT CHR* (32) :NEXT 
1120 LOCATE 4,21:INPUT "pulsa RETURN para comenzar" ;X* 
1130 CLSrGOSUB 680 
1140 GOTO 200 

1150 IF X=C THEN 660 ELSE 670 
1160 RUN 

1170 FOR W=30 TO 37:L0CATE W,17:PRINT CHR* <«cHC5) :NEXT :RETURN 

1180 FOR W=7 TO 16:L0CATE 38 ,W :PRINTCHR$ (&HC6) :NEXT :RETURN 

1190 FOR W=31 TO 36:L0CATE W ,6 :PRINTCHR* (&HC0) :NEXT :RETURN 

1200 LOCATE 32,7: PRINT CHR* ( 1 ) ;CHR$ (&H56) : RETURN 

1210 LOCATE 32,8:PRINT CHR* < 1 ) ;CHR$ (&H42) :RETURN 

1220 LOCATE 32,9:PRINT CHR$ ( 1 ) ;CHR$(&H50) : RETURN 

1230 FOR W=l TO 2:L0CATE 32,W+9:PRINT CHR$ (&HDB) :NEXT rRETURN 

1240 LOCATE 31,10:PRINT CHR* ( 1 ) ?CHR* ( fcHSD) :LOCATE 33,10:PRINT CHR* ( 1 ) ;CHR* (&H5E) 
: RETURN 

1250 LOCATE 32,12:PRINT CHR* ( 1 ) ;CHR* (&H56) : LOCATE 32,13:PRINT CHR$ ( 1 ) ;CHR$ (&H51 ) 
.-RETURN 

1260 LOCATE 32,8:PRINT CHR* ( 1 ) ;CHR* ( &H4 1 ) :LOCATE 26,15:PRINT "! AHORCADO !" :PLAY " 1 
ld":GOTO 770:END 
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Tres sencillos programas para que des- 
cubras la potencia gráfica de tu aparato 
MSX. Al mismo tiempo que te familiari- 
zas con el teclado y con las constatacio- 
nes correspondientes comprobarás que 
la imaginación y la curiosidad se despier- 
tan al mismo tiempo. 





_ 



10 COLOR 11 , 12,7:SCREEN 2 
20 PI=3.14159:A=RND<-TIME) 
25 PAINT (255,96) ,1 
30 FOR Z=0 TO 360 STEP 20 



70 
80 



0 



X= 1 28+30*COS ( P I *2 / 1 80 ) 
Y=96+30*SIN<PI*Z/180) 

(X ,Y)-(128,191) :LINE 



40 
50 

¿0 LINE 
LINE 
NEXT 



(X ,Y)-(128,0) :LINE 

Z 

90 60T0 90 



(X+5,í+5)-<0,9ó> 



<X+5,Y+5)-<255,96) 



?8 



■ 



^ií«ffl»»»»:w-Xv::::::::v:-w 



10 SCREEN 2:C0L0R 7,15,7 :CLS :KEY OFF 
20 X=50:Y=145:S=40 

30 FOR R=0 TO S STEP 2:G0SUB 70 :6OSUB90 :GOSUB U0:SOSUB 130:GOSUB 150 
40 CIRCLE (X ,Y> ,R,RND<1)*15+1 



70 CIRCLE (X,Y-99) ,R ,RND ( 1 ) *15+1 
80 RETURN 

90 CIRCLE <X+83,Y) ,R ,RND ( 1 ) *15+1 
100 RETURN 

110 CIRCLE (X+S3,Y-99) ,R ,RND < 1 ) *15+1 
120 RETURN 

130 CIRCLE <X+166,Y> ,R ,RND < 1 ) *15+1 
140 RETURN 

150 CIRCLE <X+166,Y-99> ,R ,RND < 1 ) *15+1 
160 RETURN 





-0 



2 rem 

4 REM 

5 REM SPRITES EN MOVIMIENTO ^ 

6 REM >. 

7 REM *WW$$^W$$*W^**5tó 
10 SCREEN 3 :CLS:KEY OFF : COLORI , 15 ,7 
30 FOR 1=1 TO 8 

40 REAO A 
50 S*=S*+CHR$(A) 
¿0 NEXT 

70 SPRITE*(0)=S* 
85 FOR A=0 TO 50 
90 FOR C=0 TO 15 
100 X=A-A*(C-7)*2 
110 Y=C*9+30 

120 PUT SPRITE C,(X,Y),C,0 
130 NEXT 

135 NEXT 

136 MAXFILES=2 

137 OPEN "GRP : " AS #1 

138 PRESET (10,50) 

139 COLOR 9 

140 PRINT #1, " AMSFILMS" 

141 OPEN "GRP:" AS#2 

142 PRESET (10,120) 

143 COLOR 5 

144 PRINT #2, "PRESENTA" 

146 PLAY "CAFALACA.G.G" 

147 GOTO 147 
150 DATA &b00111100 
160 DATA &b01111110 
170 DATA ícbllllllll 
180 DATA &b 11111111 
190 DATA &b 11111111 
200 DATA &b 11111111 
210 DATA &b0U11110 
220 DATA &b00111100 
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Programa de aplicación prác- 
tica para que conozcamos como 
están nuestras variables físicas y 
si estamos en buena forma para 
jugar al tenis, correr los 1500 
metros o emular a los ciclistas. 



METABOL 





Este programa está pensado para calcu- 
lar el peso ideal de una persona, según las 
tablas de la Metropolitan Insurance, muy 
conocidas entre los médicos. También de- 
termina las necesidades energéticas medi- 
das en calorías en varios supuestos, como 
metabolismo basal, según actividad, etc. 
En el caso de obesidad aconseja una dieta 
que aparece en pantalla. 



10 REM METABOL 
15 CLS 

20 REM PESO IDEAL 
30 COLOR 15,3 
40 GOSUB 360 

50 PRINT ,,J PKESSLER; 1985" 

60 LOCATE 4 f 10:PRINT 

"SEPA SU PESO" 

70 LOCATE 10,5:PRINT 

"Este programa 

solo esta pensado 

para adultos, con 

ni, os no 

sirve . " 

80 GOSUB 1770 



30 



90 PRINT" INTRODUZCA LOS DATOS COMO SE LE INDIQUE" 

100 INPUT"Peso actual en Kg (34-134) " ;R :BEEP 

110 IF R<340RR>134 THEN GOTO100:CLS 

120 INPUT "Altura en cm ( 140-191 )"; I :BEEP 

130 IFK140ORIM91THEN GOTO120 

140 INPUT "Que complexión es la suya grande... z f Mediano... y. Peque, o <Espa % ol me 
dio) ...x";J*:BEEP 

150 IF J*=CHR*<120) OR J*=CHR*(121) ORJ* =CHR*(122) THEN GOTO 160 ELSE GOTO 140 
1 60 I NPUT " Varón /Hembra " ; V : BEEP 
170 IF V p 1 THEN GOTO 190 
180 IF V = 2 THEN GOTO 260 
190 LET M= (-157. 5+1)» (372/660) +60. 3 
200 IF J*=CHR*(120) THEN LET M=M».8 
210 IF J*=CHR*(121) THEN LETM=M 
220 IF J*=CHR$(122) THEN LET M=M«1 .2 
230 GOSUB 830 
240 GOSUB 360 
250 CLS: GOTO 330 

260 H=(-147.3+I)*.5212121#+51 .7 
270 IF J*=CHR*(120) THEN LETH=H* .8 
280 IF J*=CHR*<121) THEN LETH =H 

310 GOSUB 360 
320 CLS 

330 INPUT"Si quiere recomenzar pulse ..p,si prefiere continuar pulse - -o" :B* 
340 IF ASC(B*)=111 THEN GOTO 430 ELSE GOTO 350 
350 IF ASC(B*)=112 THEN GOTO 10 ELSE GOTO 330 
360 FOR Z= 1 TO 2 
370 PLAY "T255o4F+.E.D." 



290 IF J$=CHR$ (122) THEN LETH=H*1 .2 
300 GÜSUB820 



380 PLAY "T25503G+.D.E" 
390 NEXTZ 
400 RETURN 

410 REM ESTIMACION DE LOS REQUERIMIENTOS ENERGETICOS 
420 GOSUB 1800 

430 CLS i PR I NT " NES I DADES ENERGETICAS" 

440 L0CATE1 , 15 iPRINT" INTRODUZCA LOS DATOS EN LAS UNIDADES QUE SE INDICAN" 
450 LET P-66+<13.7#R)+<5*I)-<6.8#E> 
460 LET 0-655+ <9.6»R>+<1 .7*1)- (4.7»E) 
470 INPUT"Edad en a. os" ;E :CLS 
480 IF V-l THEN GOTO 490 ELSE GOTO520 

490 PRINT "TU METABOLISMO BASAL ES DE" I NT <P) ; "CALORIAS" 
500 GOSUB 1800 
510 GOTO 540 

520 PRINT "TU METABOLISMO BASAL ES DE " I NT (O) : "CALORIAS" 
530 GOSUB 1800 

540 PRINT" NECESIDADES ENERGETICAS SEGUN LA ACTIVIDAD HABITUAL" 
550 GOSUB 1770 
560 LET Z=P 
570 LET Z=0 

580 I NPUT " SEDENT AR I O . . 3 , NORMAL ..4, GRAN ACTIVIDAD . .5 f HOSP I T AL I Z ADO . . 6 f F I EBRE . . 7 " ; 
L 

590 CLS 

600 LET A*="SUS NECESIDADES ENERGETICAS SON" 
610 IF L=3 THENPRINTA*;INT(Z+Z*.486) "calorias" :GOTO 690 
620 IF L=4 THEN PRINT A*;INT( Z+Z*l .2) "cal orias" :GOTO 690 
630 IF L=5 THEN PRINT A* ; INT ( Z+Z»l .2) "cal orias" :GOTO 690 

640 IF L=6 THEN PRINT" QUE YO SEPA EL PROGRAMA NO ESTA HOSPITALIZADO" : GOTO 690 
650 IF L-7THEN INPUT"Que temperatura tienes" ;Q 
660 LOCATE 1 ,15 

670 IF Q<35 OR Q>42 THEN PRINT" LO SIENTO, ESTA USTED MUERTO" : GOSUB 1800: CLS :G0 
TO20 

680 IF Q>350RQ<42 THEN PRINTA* ; INT ( Z+ (-36+Q) *Z/ 10) 
690 GOSUB 1800 
700 GOTO 720 



31 
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710 RETURN 

720 IF V=2 THEN LET H=M 
730 CLS 

740 IF R <<M+.2»M) AND RXM-.2*M) 
entro del margen 20X por encima o 
0 



THEN PRINT"Este programa le considera normal d 
por debajo del peso ideal " :GOSUB1800 :CLS :GGTÜ2 



Ud delgado, hay que comer mas " : GOSUB 1 800 : CLS : 



780 
790 
800 
810 
820 



750 IFR < (M-M* .201 ) THEN PRINT"Esta 
GOTO20 

760 CLS:IF RXM+M#.2) THEN PRINT" Esta Ud obeso, le recomiendo:" 
770 PRINT" 1) Tomar dieta de 1500 calorías" 

PRINT" 2) Hacer ejercicio" 

PRINT" 3) Acuda a su medico" 

L0CATE1 , 19 :PRINT"Para conocer su dieta apriete cualquier tecla":GOSUB 1800 
CLS: GOTO 900 
M=H 

830 CLS:PRINT"Los pesos están calculados por las tablas de la METROPOLITAN INSUR 
ANCE f compa % ia de Seguros norteamericana, para 1983 

840 PRINT :PRINT"Peso ideal " ; < 1 0» I NT < M+ . 5 ) ) / 1 0 ; " Kg " 

850 PRINT :PRINT"Peso actual "R ; "Kg " 

ft/10^"KG" PRINT, ' La dÍferenCÍa de SU peso con ^pecto al ideal es"R- < 10#INT <M+ .5 

870 PRINT :PRINT:PRINT"E1 lo representa un " INT < 100#R/M) ;"%" 

880 GOSUB 1800 
890 RETURN 

900 LOCATE 10, 15 SPRINT "DIETA DE 1500 CALORIAS" : GOSUB 1800 

910 PRINT" DESAYUNO" 

920 PRINT: PRINT "TODOS LOS DIAS LO MISMO" 

930 PRINT :PRINT"Caf e o te +100cc de leche descremada" 

940 PRINT" 1 tostada peque, a de pan (25 gr) con 5 gr de mantequilla o mermelada 
(5gr ) 

950 GOSUB 1800 

960 PRINT "LUNES 1" 

970 PRINT "MARTES 2" 

980 PR I NT " M I ERCOLES 3 " 

990 PRINT "JUEVES 4" 

1000 PR I NT " V I ERNES 5" 

1010 PRINT "SABADO 6" 

1020 PRINT "DOMINGO 7" 

PRINT iPRINT "ELIGA EL DIA DE LA SEMANA" 

INPUT N :CLS:ON NGOTO 1050 , 1 150 , 1240 , 1330 , 1420 , 1510 , 1600 : IF N>8 GOTO1040 
CLS :PRINT" LUNES/comida" 

PRINT :PRINT" 150 gr de verduras cocidas con 1 ce de 
PRINT" 100 gr de costillas asadas" 
PRINT" 100 gr de pan" 
1090 PRINT" 1 fruta y 75 gr de queso de Burgos" 
1100 PRINT :PRINT" CENA" 
1110 PRINT :PRINT "Sopa de fideos" 
1120 PRINT"200 gr de merluza a la plancha." 
1130 PRINT" 100 gr de pan y 1 yougourt" 

:GOTO 1690 

MARTES/Comida" 

gr de guisantes hervidos con 1 ce de aceiti 
bistec de ternera 
pan y 1 hel ado de 
CENA" 



1030 

1040 
1050 
1060 

1070 

ti 



1140 
1150 
1160 
1170 
1180 



GOSUB 1800 
PRINT" 

PRINT iPRINT" 100 
PRINT" 100 gr de 
PRINT" 100 gr de 
1190 PRINT -.PRINT" 

1200 PRINT" 50 gr de sémola seca 
1210 PRINT"200 gr de rape 
1220 PRINT" 100 gr de pan y 
GOSUB 1800: GOTO 1690 



•i 



peque, o 



•i 



1230 
1240 
1250 
1260 



hervida con agua 
la plancha M OK 
1 yogourt" 



•i 



PRINT : PRINT" MIERCOLES/Comida" 
PRINT :PRINT" 150 gr de macarrones con tomate" 
PRINT" 100 gr de pierna de cordero asada mas 100 



gr de pan 



32 



- 



1 ce de aceite" 
de pan" 



1270 PRINT"2 frutas" 
1280 PRINT :PRINT" CENA" 
1290 PRINT :PRINT"200 gr de alcachofas con 
1300 PRINT"2 huevos escalfados con 100 gr 
1310 PRINT"1 yougourt" 
1320 GÜSUB 1800: GOTO 1690 
1330 PRINT" Jueves/Comida" 

1340 PRINT :PRINT"200 gr de judias hervidas con 1 ce de aceite" 

1350 PRINT"200 gr de aceite a la plancha" 

1360 PRINT "50 gr de pan y 1 yougourt" 

1370 PRINT: PRINT" CENA" 

1380 PRINT :PRINT" 150 gr de acelgas hervidas" 

1390 PRINT"1 huevo frito con 150 gr de pan" 

1400 PRINT" 1 fruta" 

1410 GOSUB 1800: GOTO 1690 

1420 PRINT :PRINT" VIERNES/Comida" 

1430 PRINT :PRINT" 150 gr de coliflor con 1 ce de aceite" 

1440 PRINT" 150 gr de magro de cordero" 

1450 PRINT" 100 gr de pan y 2 frutas" 

1460 PRINT: PRINT" CENA" 

1470 PRINT :PRINT" 150 gr de lentejas hervidas" 

1480 PRINT"150 gr de pescadilla a la plancha con 100 gr de pan" 

1490 PRINT"1 flan pequero" 

1500 GOSUB 1800: GOTO 1690 

1510 PRINT" SABADO/Comida" 

1520 PRINT :PRINT" 150 gr de ensalada simple con 1 ce de aceite" 
1530 PRINT" 150 gr de pollo asado" 

1540 PRINT" 150 gr de pav y 50 gr de queso manchego" 

1550 PRINT: PRINT" CENA" 

1560 PRINT :PRINT"sopa de fideos clarita" 

1570 PRINT"200 gr de merluza a la plancha con 100 gr de pan" 

1580 PRINT" 1 fruta" 

1590 GOSUB 1800: GOTO 1690 

1600 PRINT" DOMINGO/Comida" 

1610 PRINT :PRINT"200 gr de mejillones al vapor" 

1620 PRINT" 100 gr de solomillo de ternera asado" 

1630 PRINT" 100 gr de pan y una fruta" 

1640 PRINT: PRINT" CENA" 

1650 PRINT :PRINT" 100 gr de melón con 60 gr de jamón" 
1660 PRINT" 100 gr de lenguado con 75 gr de pan" 
1670 PRINT"1 yougourt" 
1680 GOSUB 1800 

1690 PRINT" EQUIVALENCIAS" 

1700 PRINT :PRINT" Todos los menus son intercambiables entre si" 
1710 PRINT :PRINT" 100 gr de col cocida =100 gr de judias blancas 

de bruselas m 125 gr de guisantes = 75 gr de garbanzos" 
1720 PRINT :PRINT" 100 

* 75 gr de cordero" 
1730 PRINT :PRINT" 100 gr de merluza 

100 gr de mero" 
1740 PRINT :PRINT"1 yougourt 
os" 

1750 GOSUB 1800 

1760 LOCATE 1 ,15: INPUT" QUIERE VOLVER 
TO900 f 10:IF N>2 THEN GOTO 1760 
1765 END 

TIME=0 

IF TIME=180 THEN CLS ELSE GOTO 
RETURN 

L0CATE1 ,21 :PRINT"Apr iete cualquier tecla" 
A*=INKEY$ 
IF A*=""THEN1810 
CLS 

RETURN 

CSAVE"MET" :LINE10 




/ 




125 gr de col 

gr de costillas de cordero m 100.gr de solomillo de ternera 



100 gr de lenguado 
2 frutas = 1 flan peque, o 



= 100 gr de pescadilla = 
= 75 gr de queso de Burg 



A VER LA DIETA (si 1 no 2) " ;N : INPUTN :0N N GO 



1770 
1780 
1790 

1800 

1810 
1820 
1830 
1840 
1850 



1780 



¡PONGA OTRO VENDEDOR EN SU TIENDA! 




VA DIRECTAMENTE AL USUARIO 

Para que todas las tiendas de informática 
y productoras de software entren en línea hemos pensado 

una sección muy especial. 

CLASIFICADOS MSX CLUB 



Aquí el usuario de un 
ordenador MSX podrá 
encontrar todo aquello que 
está buscando en el lugar 

' preciso. 

NO QUEDE FUERA 

DE LINEA 

¡ANUNCIESE! 

Si quiere un vendedor más, 
sólo tiene que ponerse en 
contacto por carta o por 
teléfono con nosotros. 
Diríjase a MSX CLUB DE 
PROGRAMAS 
CLASIFICADOS. 
RocaiBatlle, 10-12 
08023 Barcelona 
Tel. (93)21122 56 





Concursos de 
programas 
Listados 
Sorteos de 
cartuchos 
Novedades de 
aparatos 
Bancos de 

prueba 
Iniciación al 

BASIC-MSX 



¡SOMOS LOS PRIMEROS! 
LA PRIMERA REVISTA 



DE MSX DE ESPAÑA 




PIDE TU 

SUPER JUEGOS EXTRA MSX 
¡YA ESTA EN TU KIOSCO! 



•EL OmtWW 





(ttfójASX CMEEE~kc\E ...fez.zz.zQ 



Solo 69.500 .'P 




EN OVEJOS, hfWft 
ENTRA^IE K LA IN?C*WATlcA] 




IV SOLO VALE 69500/ 




9¿JE QUIERE ^ 
DEClfcp 




Ordenador Personal 

TOSHIBA HX-10 

Su Ordenado Servidor 



69.500 ptas 





MSX 



CVCTUM 





Características principales: 

Sistema standard MSX. Memoria de 64 K 
RAM, 32 K ROM y 1 6 K de pantalla. 1 6 co- 
lores. 73 teclas. 32 sprites. Sistema mul- 
ticolor 64 x 48 bloques. Sonido: 8 octa- 
vas tres acordes. Conexiones para: casette, 
Ifcpresora, 2 mandos y futuras expansiones. 



TO S H I DA 



española de microordenadores s.a. 

Caballero. 79 Tel. 321 02 12 Telex 97087 EMOS 08014 BARCELONA 



